home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Developer Source 4
/
developer source - volume 4.iso
/
parad
/
mar94
/
ma_fig07.gif
< prev
next >
Graphics Interchange Format
|
1996-07-10
|
28KB
|
641x492
|
4-bit (5 colors)
Labels:
text
|
screenshot
|
font
|
display
|
number
OCR:
CUSTOMER :: #Button3 :: pushButton* method pushButton(var eventInfo Event) var custReport Report custRPI ReportPrintInfo q: String endvar ; Set up and invoke dialog box. srLib setTableName( ":WORK : customer"" ) srLib setCurReckeyField( "Customer No" ) srLib .setCurRec( Customer No ) srLib .openSortRangeDialog( r ) if r <> "Ok" then return endIf q = srLib .queryString() custRPI .name ": WORK : custlo" custRPI .queryString q custRPI .orient = PrintLandscape if not custReport print( custRPI ) then msgStop ( "Error", "Could not print CUST report!") return endIf endMethod Edit Line: 1 Col ::: 1